﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE

Public Class frmSeg_UsuarioMantenimiento
    Private ReadOnly oUsuario As New UsuarioBL()
    Private ReadOnly oUsuarioBE As New Usuario()
    Private ReadOnly oMaestros As New MaestrosBL()

    Private Sub frmSeg_UsuarioMantenimiento_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        AddHandler UcAsistUsuario11.cmdok.Click, AddressOf prl_Siguiente
        AddHandler UcAsistUsuario21.cmdfinalizar.Click, AddressOf prl_Finalizar
        UcAsistUsuario21.cbcoduser.Properties.DataSource = oUsuario.pr_Select_Usuarios("")
        UcAsistUsuario21.cbcodnive.Properties.DataSource = oMaestros.pr_GetPerfiles()
        AddHandler UcAsistUsuario21.cmdcancel.Click, AddressOf prl_Close
        AddHandler UcAsistUsuario11.cmdcancel.Click, AddressOf prl_Close
    End Sub

    Private Sub prl_Close()
        DialogResult = Windows.Forms.DialogResult.Cancel
        Close()
    End Sub

    Private Sub prl_Siguiente()
        If UcAsistUsuario11.DxValidationProvider1.Validate() Then
            If UcAsistUsuario11.gpswuser.EditValue.Equals(UcAsistUsuario11.gconfpsw.EditValue) Then
                LayoutControlItem1.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
                LayoutControlItem2.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
            Else
                MsgBox(" Error el password es diferente a la confirmación ", MsgBoxStyle.Critical)
            End If
        End If
    End Sub

    Private Sub prl_Finalizar()
        If UcAsistUsuario21.DxValidationProvider1.Validate() Then
            oUsuarioBE.coduser = UcAsistUsuario11.gcoduser.EditValue
            oUsuarioBE.nomuser = UcAsistUsuario11.gnomuser.EditValue
            oUsuarioBE.desuser = UcAsistUsuario11.gnomuser.EditValue
            oUsuarioBE.codnive = UcAsistUsuario21.cbcodnive.EditValue
            oUsuarioBE.fchingr = UcAsistUsuario21.gfchingr.EditValue
            oUsuarioBE.fchterm = UcAsistUsuario21.gfchterm.EditValue
            oUsuarioBE.maiuser = UcAsistUsuario21.gmaiuser.EditValue
            oUsuarioBE.flguser = "A"
            oUsuarioBE.pswuser = UcAsistUsuario11.gpswuser.EditValue
            If oUsuario.pr_AgregarUsuario(oUsuarioBE) Then
                DialogResult = Windows.Forms.DialogResult.OK
                Close()
            End If
        End If
    End Sub

End Class

